home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / auto line num.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  752b  |  23 lines
  1. 10 SA=49152:REM CHANGE STARTING ADDRESS TO RELOCATE
  2. 20 FORI=SATOSA+103:READA:X=X+A:POKEI,A:NEXT
  3. 30 SB=SA+29:POKESA+7,INT(SB/256):POKESA+2,SB-INT(SB/256)*256
  4. 40 SC=SA+88:POKESA+23,INT(SC/256):POKESA+18,SC-INT(SC/256)*256
  5. 50 IFX<>11563THENPRINT"ERROR IN DATA STATEMENTS.":STOP
  6. 60 IN=10:POKESA+46,IN:REM INCREMENT CHANGE
  7. 70 PRINT"[147]SYS"STR$(SA)" TO RUN[146]":NEW
  8. 80 DATA 120,169,29,141,2,3,169
  9. 90 DATA 192,141,3,3,169,0,133
  10. 100 DATA 20,133,21,169,88,141,20
  11. 110 DATA 3,169,192,141,21,3,88
  12. 120 DATA 96,173,21,3,201,234,208
  13. 130 DATA 6,32,138,255,76,131,164
  14. 140 DATA 165,20,24,105,10,133,99
  15. 150 DATA 165,21,105,0,133,98,162
  16. 160 DATA 144,56,32,73,188,32,221
  17. 170 DATA 189,162,0,189,1,1,240
  18. 180 DATA 6,157,119,2,232,208,245
  19. 190 DATA 169,32,157,119,2,232,134
  20. 200 DATA 198,76,131,164,32,225,255
  21. 210 DATA 208,8,32,138,255,169,13
  22. 220 DATA 32,210,255,76,49,234
  23.